perm filename FOO[P,JRA]4 blob sn#419884 filedate 1979-02-15 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;


  else if equ(s,"LF") then done
 
  else if equ(s,"LB")then begin 
			    typeset("<");
			    text_set←true;
			  end
			    
			    typeset(">");
			    text_set←true;
			  end
  else if equ(s,"RB")then begin
				
	  then begin
	  "foo"
	  outstr("loss
	  onheading
	  hack"&crlf);
	  else    if
	  equ(s,"FF")
	  done   end
	  "foo" else
	  begin
	  "BIGcommand"
akakakakka	string s1;
akakaakkaka:	integer br;
		s1←scan(s,tospeq,br);
		if length(s)=0 then begin outstr("FOO on "&s1&crlf);continue end;
		if equ(s1,"COLUMN") then begin 
					   stuff(bell);
					   stuff(dee);
					   stuff(ensp);
					 end
	  	 else if equ(s1,"FONT") then setfootfont(cvd(s))
		 else if equ(s1,"LINESPACE") then begin outstr("heading loss"&crlf);
						  end

		 else if equ(s1,"COL") then begin "col inc"
							stuff(bnd);
							s1←scan(s,tospeq,br); ! flush "INC";
							seen_bnd←true;
					    end "col inc"